home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 5 / QRZ Ham Radio Callsign Database - Volume 5.iso / files / arrl / tis / hp48pack.pgm < prev    next >
Encoding:
Text File  |  1994-11-20  |  3.4 KB  |  266 lines
  1. Subject: Stan Horzepa's Packet Program for Hewlett-Packard model 48 Calculators
  2. Last revised April 19, 1994
  3.  
  4. ----------------cut here---------------------------------------------
  5.  
  6. %%HP: T(3)A(D)F(.);
  7.  
  8. DIR
  9.   PPAR {
  10.  
  11. (-3.25,-3.1)
  12. (3.25,3.2) X 0
  13. (0,0) FUNCTION Y }
  14.  
  15.   RALL
  16.     \<< .2 STIME
  17.  
  18. # 131d # 64d BLANK
  19.  
  20. PICT STO
  21.       DO
  22.         DO BUFLEN
  23.         UNTIL AND
  24.  
  25.         END PICT {
  26.  
  27. # 0d # 0d } PICT {
  28.  
  29. # 0d # 6d } {
  30.  
  31. # 131d # 64d } SUB
  32.  
  33. REPL PICT { # 0d
  34.  
  35. # 58d } PICT { # 0d
  36.  
  37. # 58d } # 131d # 6d
  38.  
  39. BLANK REPL 31 SRECV
  40.  
  41. DROP 1 \->GROB REPL {
  42.  
  43. # 0d # 0d } PVIEW
  44.  
  45. CLEAR
  46.       UNTIL 0
  47.       END
  48.     \>>
  49.   W
  50.     \<<
  51.       DO BUFLEN AND
  52.  
  53.       UNTIL
  54.  
  55.       END
  56.     \>>
  57.   QUAL { { "OPEN"
  58.     \<< "Qualifier" {
  59. "" { 1 6 } \Ga }
  60.  
  61. INPUT CONT
  62.     \>> } { "80"
  63.     \<< "80" CONT
  64.     \>> } { "40"
  65.     \<< "40" CONT
  66.     \>> } { "20"
  67.     \<< "20" CONT
  68.     \>> } { "15"
  69.     \<< "15" CONT
  70.     \>> } { "10"
  71.     \<< "10" CONT
  72.     \>> } }
  73.   DX
  74.     \<< "Frequency"
  75.  
  76. "" INPUT \-> F
  77.       \<< "Call Sign"
  78. { "" { 1 6 } \Ga }
  79.  
  80. INPUT \-> C
  81.         \<< "Comment"
  82. { "" { 1 1 } \Ga }
  83.  
  84. INPUT \-> COM
  85.           \<< "DX " F
  86. \->STR + " " + C +
  87. " " + COM + TRAN
  88.           \>>
  89.         \>>
  90.       \>>
  91.     \>>
  92.   C3 "N4Q"
  93.  
  94.   STN { { "NE1R"
  95.     \<< "NE1R" CONT
  96.     \>> } { "SECT"
  97.     \<< "SECT" CONT
  98.     \>> } { "WYN"
  99.     \<< "BBSWYN" CONT
  100.     \>> } { "KB1H"
  101.     \<< "KB1H" CONT
  102.     \>> } { "SALEM"
  103.     \<< "SALEM" CONT
  104.     \>> } }
  105.   TRAN
  106.     \<< EOL + XMIT
  107.  
  108. DROP
  109.     \>>
  110.   REC
  111.     \<< 20 STIME
  112.  
  113. # 131d # 64d BLANK
  114.  
  115. PICT STO 0 \-> N
  116.       \<<
  117.         DO
  118.           DO 1
  119.  
  120. SRECV DROP EOL
  121.  
  122.           UNTIL ==
  123.           END W 1
  124. SRECV DROP DROP W 3
  125.  
  126. SRECV DROP \-> S3
  127.           \<<
  128.             IF 'C3\=/
  129. S3'
  130.             THEN
  131.               IF S3
  132. "DX" POS 0 \=/
  133.               THEN
  134.  
  135. 660 .5 BEEP 990 .5
  136.  
  137. BEEP 13 SRECV DROP
  138.  
  139. DROP PICT # 0d N 6
  140.  
  141. * R\->B 2 \->LIST
  142.  
  143. # 131d # 6d BLANK
  144.  
  145. REPL PICT 21 SRECV
  146.  
  147. DROP "       " + 33
  148.  
  149. SRECV DROP DROP
  150.  
  151. PICT # 116d N 6 *
  152.  
  153. R\->B 2 \->LIST 4 SRECV
  154.  
  155. DROP 1 \->GROB REPL
  156.               ELSE
  157. PICT S3 18 SRECV
  158.  
  159. DROP + PICT # 83d N
  160.  
  161. 6 * R\->B 2 \->LIST 7
  162.  
  163. SRECV DROP 5 SRECV
  164.  
  165. DROP DROP 5 SRECV
  166.  
  167. DROP + 1 \->GROB REPL
  168.               END 1
  169. \->GROB # 0d N 6 *
  170.  
  171. R\->B 2 \->LIST SWAP
  172.  
  173. REPL N 1 + 10 MOD
  174.  
  175. 'N' STO { # 0d # 0d
  176.  
  177. } PVIEW
  178.             END
  179.           \>> CLEAR
  180.         UNTIL 0
  181.         END
  182.       \>>
  183.     \>>
  184.  
  185.   CST { { "SEND"
  186.     \<< "Enter text"
  187.  
  188. { "" { 1 1 } \Ga }
  189.  
  190. INPUT TRAN RALL
  191.     \>> } REC {
  192.  
  193. "SH/D"
  194.     \<< "SH/D " QUAL
  195.  
  196. TMENU HALT + TRAN 0
  197.  
  198. MENU REC
  199.     \>> } { "DX"
  200.     \<< DX REC
  201.     \>> } RALL
  202.  
  203. SBRK { CON
  204.     \<< "C " STN
  205.  
  206. TMENU HALT + TRAN 0
  207.  
  208. MENU RALL
  209.     \>> } { DIS
  210.     \<< SBRK "D" TRAN
  211.  
  212. RALL
  213.     \>> } { "FO"
  214.     \<< "FO BBSWYN"
  215.  
  216. TRAN RALL
  217.     \>> } { "TIME"
  218.     \<< DATE \-> D
  219.       \<< TIME \-> T
  220.         \<<
  221. "DAYTIME " D
  222.  
  223. 1000000 * 100 MOD
  224.  
  225. 100000000 * D IP
  226.  
  227. 100 MOD 10000 * + D
  228.  
  229. 100 * IP 100 MOD
  230.  
  231. 1000000 * + T IP
  232.  
  233. 100 * + T 100 * IP
  234.  
  235. 100 MOD + 0 FIX
  236.  
  237. \->STR + TRAN
  238.         \>>
  239.       \>>
  240.     \>> } { "CONV"
  241.     \<< "K" TRAN RALL
  242.     \>> } { "BUCK"
  243.     \<< "SH/BUCK "
  244. "Call Sign:" { "" {
  245.  
  246. 1 1 } \Ga } INPUT +
  247.  
  248. TRAN RALL
  249.     \>> } { "QSL"
  250.     \<< "SH/QSL "
  251. "Call Sign:" { "" {
  252.  
  253. 1 1 } \Ga } INPUT +
  254.  
  255. TRAN RALL
  256.     \>> } }
  257.   EOL ""
  258.   IOPAR { 9600 0 1
  259. 1 3 1 }
  260. END
  261.  
  262. -----------------------cut here--------------------------------------
  263.  
  264. **eof
  265.  
  266.